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1.0 INTRODUCTION 


This report documents the completion of, and improvements made to, the 
software developed during 1990 for program maintenance on the PC and HEURIKON 
and transfer to the CYRO, and integration of the Rocketdyne vision software with the 
CYRO. The new programs have been used successfully by NASA, Rocketdyne, and 
UAH technicians and engineers to create, modify, upload, download, and control CYRO 
NC programs. 


3 


2.0 SOFTWARE DEVELOPMENTS 


2.1 Introduction 

Software development was concentrated in three areas: 

• Improve user interface for easy use by persons not experienced in computer 
operation. 

• Simplify the software cycle for new CYRO executive tapes to eliminate the need 
to travel between three sites with magnetic tapes. 

• Modification of Rocketdyne vision software to use the HEURIKON serial port to 
send offsets to the CYRO through its serial port. 

The approach in all software development is to start development on the PC, and carry 
this development on the PC as long as possible. This is desirable due to the superiority of 
available editors, compilers, debug tools, and development utilities for the PC that are 
not available or are very costly on the HEURIKON or similar system. Further, work can 
be accomplished at any site with a PC; this is especially important considering the harsh 
working environment of the Building 4705 highbay. 

The programs are designed to be easily ported from one machine environment to 
another. Once a program is operating properly on the PC it is then transferred to the 
HEURIKON. 
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2.2 User Interface 

The software developed in 1 990 required the operator to remember the name and 
proper usage of six to ten programs. It was quickly discovered, during training sessions, 
that this was not acceptable, considering the diversity of the users and the potentially 
long period of time between uses of the software. 

A new menu-driven user interface. Figure 1 , was developed to go on top of the 
existing robot communication and control software. The menu is built from the batch 
processing commands that are a standard part of DOS on the PC and translatable to the 
shell commands available on the HEURIKON. 


CYRO-PC MENU 

A Directory of programs on PC disk 
B Directory of programs on CYRO 
C Reconnect PC to CYRO 
D List a NC program on the PC 
E Save a program FROM CYRO TO PC 
F Load a program TO CYRO FROM PC 
G RUN program loaded on the CYRO 
H HALT a program running on CYRO 
I Edit program on PC using MS WORD 
} Edit program on PC using Q-EDIT 
K Send program listing to printer 
L Resequence program on PC 

DEFAULT DIRECTORY [\CYRO] 

Enter a letter from A to L 
(or type Esc to quit) 

Enter a letter from A to L 


Figure 1 . New user interface menu. 


The new user interface is now the preferred way NC programs are maintained and 
loaded to the CYRO. 
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2.3 CYRO Tape Development 

The previous software development cycle for new CYRO executive tapes allowed 
the programmer to edit and compile the CYRO program remotely using the network. 
However, it was necessary to then physically transfer, via magnetic tape, the new 
executable to a third machine equipped to write the new executive tape on a TU58 data 
cartridge. This process discouraged development of new executive tapes. New programs 
were developed to streamline the development cycle. 

The problem was solved by developing two programs, BOOTCYRO.EXE and 
MAKETAPE.EXE. Through research into the structure of the PDP1 1/23 boot image and 
TU58 tape drive, the BOOTCYRO program was developed to boot the CYRO directly 
from a captured boot image file via the PC. With the CYRO serial card set to 38.4 K 
BAUD, the time required to boot the CYRO was lowered from the 120 seconds required 
by tape to 20 seconds with the PC. 

The initial version of the program required an input file captured from an existing 
executive tape. Later versions were developed to accept the SEN.TSK file directly as 
generated by the SCATS compiler. The BOOTCYRO program now allows a 
programmer to modify the CYRO program, compile and link to create a new TSK file, 
transfer the TSK file over the network to the PC or HEURIKON, and boot the CYRO 
with the new executive program, all without leaving the CYRO workcell in building 
4705. 

The MAKETAPE program was developed to support writing of TU58 tapes via 
the PC or HEURIKON, using the TU58 tape drive built into the CYRO. This program 
can take the raw TSK file and create a new executive tape or it can make a copy of an 
existing TU58 tape. This program also eliminates the need for the RT1 1 UTL, 
EXCHANGE, and ZAPTU58 programs in the development cycle. 
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2.4 HEURIKON Vision Software 


Software was developed by Rocketdyne in California, to accept images of the 
weld path gathered by a camera mounted in the torch, perform image processing on the 
images to detect the seam, and then send offsets to the robot in order to track the seam. 
The system was developed and demonstrated to work in California on a similar 
HEURIKON computer system with a different robot. It is desired to adapt this software 
to operate on the HEURIKON computer at MSFC with the CYRO robot in building 
4705. 

In discussions with Dave Gutow of Rocketdyne Canoga Park, it was determined 
that the special communications between the vision software on the HEURIKON and the 
CYRO is best handled in the SENCON.C program file. Dave Gutow designed his 
software to use a shared data structure and the functions in SENCON.C were written 
with provision for the requirements at MSFC. 

In Canoga Park, a seperate processor card communicates with the robot and 
updates the shared data structure. At MSFC, a software process running under UNIX has 
been developed to communicate with the CYRO and alter the data structure as 
appropriate. 
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3.0 HARDWARE DEVELOPMENTS 


3.1 CYRO Air-conditioning 

The extreme heat generated in the HEURIKON cabinet, worsened by the high 
temperatures experienced in the un air-conditioned CYRO work cell, resulted in a disk 
crash in July 1991. Several months were required to rebuild the system. A dedicated air- 
conditioner was installed on the HEURIKON cabinet to prevent future crashes and 
prolong the life of the HEURIKONs components. 

3.2 CYRO Tape Switch 

A rotary switch was added to the CYRO front panel to simplify the connections 
between the PC/HEURIKON, CYRO TU58, and CYRO Serial Port. The knob has three 
positions to allow the CYRO to boot from tape, boot from an external device, or connect 
external device to the TU58. 
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4.0 WELDING PROCESS MEASUREMENT AND CONTROL 

SYSTEMS 


4.1 MIDSOUTH Model-Based System 

The MIDSOUTH was delivered and demonstrated. The system contains an 
80286 processor board, 80386 processor board, data acquisition, and signal conditioning 
hardware in a VME cardcage. The process monitoring and control software is written in 
C to operate under Microsoft windows. 

Basic operation of the system was verified to assist in evaluation of the possible 
applications of the system, as-is or as a parts platform for other projects. 

4.2 INTA Laser Seam Tracker 

The INTA laser seam tracker was delivered in pieces, non-operational, and with 
limited documentation. Inaccuracies in the wiring diagrams were discovered during the 
re-connection of the units. 

The MIDSOUTH system was used to download the INTA software to the 68030 
processor; this requires 2 to 3 minutes. A BIT3 interface card was included but requires 
a 16-bit ISA slot. The BIT3 card is claimed to complete a download in 15 seconds. 

The INTA system detects the seam by measuring scatter laser light. The light is 
applied to the work-piece by reflecting a laser beam emitted from a fiber optic cable. A 
semiconductor laser is connected to a iens/collimator assembly by the fiber optic cable. 
The lens assembly includes a pinhole which must be precisely aligned to allow the laser 
light to pass through. This alignment was disturbed in shipping or during assembly and 
several weeks were required to realign it. 

After realignment, the system was checked-out and it operated as described in the 
documentation. 
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5.0 CONCLUSIONS AND RECOMMENDATIONS 


The PC version of the new NC development software has been used by most of 
the CYRO users. The HEURIKON version has not been warmly received due to the 
greater complexity in operating the HEURIKON and the unfamiliar vi editor. 

The arrival of the new robots and welding controllers has prompted a reevaluation 
of the focus and role of the CYRO and HEURIKON in the NASA mission. The welding 
controller originally planned for the CYRO has now been teamed with a more modem 
robot arm. The serial communications interface of the CYRO and HEURIKON is now 
very robust and well understood. Electrically, the CYRO and/or HEURIKON can now 
be easily connected to any of the new robot or welding controllers. The age of the 
HEURIKON technology is now an important consideration in its role with welding 
process control. However, the VME-based construction of the HEURIKON will support 
upgrades to faster processors and peripherals, well into the future. 

The vision system changes are still to be tested. A compatibility problem with 
the compiler and configuration and/or hardware problems with the VRTX processor have 
hampered this development. Progress with the vision system was severly hampered due 
to the lack of modem software development tools. 

The HEURIKON, MIDSOUTH, and INTA a three separate systems that have 
never been fully functional. The HEURIKON system software is out of date and lacking. 
Both the HEURIKON and INTA have powerful and reusable hardware. The INTA 
system does not have a disk or operating system. Combining the HEURIKON and INTA 
hardware and adding modem, up to date software tools would make for a very powerful 
system for welding process control. 

The PC nature of the MIDSOUTH system makes for a powerful software 
development platform. However, the VME based hardware has not proven ideal 
combination to the point. 
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Due to the relatively slow rates encountered in the welding process, the serial 
interfaces common to the CYRO, HEURIKON, MIDSOUTH, INTA, and new robot, are 
sufficient. As the need arises for higher speed communications, high speed interface 
cards such as those made by BIT3 will work. 
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APPENDICES 


APPENDIX A 


CYRO BOOT and TU58 Software Listings 


*'* BOOTCTRO.C Program to boot the CYRO750 ROBOT from a . TDK image file*/ 

/* Written by Peter L. Romine 1990,91 

** University of Alabama, Huntsville 

Electrical and Computer Enaineermg Department 

*■ / 

a include "cyro.h" 

^pragma check_stack (off) 
static CYRO msg; 

UCHAR 


blkO [ ] »{ I76 r 0,225, 121, 0, 0, 254 r 118 , 192, 101,30, 0,1, 148, 3, 3, 247, 9, 6, 0,251, 1,5, 0,0, 0,95, 144 
, 113,255,223,139,116,255,253,128, 135,0); 

OCHAR blk6 f ] ={ 1 , 0, 0, 0, 1, 0, 0, 0 , 3 , 0, 0 , 4 , 225 , 121 , 0 , 0 , 2 54 , 118, 110, 0, 0, 0, 179, 7, 0, 2, 0, 

0 , 0, 0,0,0, 138, 1,0, 0,0, 0,0,8} ; 
fdefine datasiz 60000 
static UCHAR data (DATASIZ] ; 
long data__ptr , data_len; 

int pkt*=0 ; 

struct 
( 

UCHAR flag; 

UCHAR len; 

UCHAR opcode; 

UCHAR modifier; 

UCHAR unit; 

UCHAR switches; 

UCHAR seq_lo; 

UCHAR seq_hi; 

UCHAR cnt_lo; 

UCHAR cnt_hi; 

UCHAR blk_lc; 

UCHAR blk_hi; 

UCHAR chk_lo; 

UCHAR chk_hi; 

) cmd_jpkt; 
struct 
( 

UCHAR flag; 

UCHAR len; 

UCHAR data [128]; 

UCHAR chk_lo; 

UCHAR chk_hi; 
t data_pkt; 

int main(int argc,char **argv) 

( 


int 

blk strt,blk end 

FILE 

*fp, *f pO; 

long 

byte_cnt, i; 

UCHAR 

chk_l, chk h; 

long 

lobyte, hibyte; 

long 

chk, a*0, b=0, c-0; 


connect^serial (COMM2, RE S TORE_ON_EX I T } ; 
if( ! (fp = fopen (argv[l J , "rb") ) ) 
exit (1) ; 

for (i=0; i<DATASIZ; i++) data(i] = 0; 

printf("Rd 0 %d\n", a~fread(data, 1, (size t)1024,fp)); 

fpO = fopen ("tu58_4 .cln", "rb") ; 

printf ( "Rd 1 M\n" , a-fread(data, 1 , (size_t) 2048, fpO) > ; 

printf ( "Rd 2 ld\n", b-fread< & (data [2048] ), 1, (size_t) 30720, fp) ) ; /* rd blk 0 V 
printf ( "Rd 3 ld\n", c=fread < £ (data [32768] ), 1, (size t) 30720, fp) ) ; /♦ rd blk 8 */ 
fclose(fpO); ~ 

datajptr * 0L; 
data_len * a +■ b + c; 

printf ("BUFFER SIZE = ld\n w , data^len ) ; 

printf <”\nWaiting for INIT from CYRO\n n ); while ( s getch2() 0x04 ); 
while ( s_getch2() != 0x04 ); 
s_putch2 ( 0x10) ; /* send continue */ 

/* get command to read block 0 */ 
get_command ( ) ; 
print_coinmand { ) ; 

printf ( "\nSending block 0 to CYROXn"); /* Send block 0 */ 
send_data ( ) ; 

/* get command to read block 6 */ 
get_command ( ) ; 
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PRECEDING PAGE RLAMX NOT FILMED 


print_coramand ( ) ; 

printf ("\nSending dir to CYROXn" ); / * Send block 6 */ 
send_data ( ) ; 

/* get command to read block 9 */ 
getjcommand( ) ; 
print_command ( ) ; 

printf ( "XnS ending Program to CYROXn'')? 

/* Send block 8a */ 
send_data ( ) ? 

printf ("XnTransroission to CYRO complete ! \n" ) ; 


print_command f ) 

( 

printf ("%d %d td id Id id id ':d id id id id Id i.dXn" , cmdjpkt . f lag 
, cmd_pkt , len 
, cmd_pkt . opcode 
, cmd_pkt .modifier 
, cmdjpkt .unit 
, cmdjpkt . switches 
/ cmd_pkt . seq_lo 
, cmdjpkt . seq_hi 
, cmd_pkt . cnt_lo 
, cmd_pkt . cnt_hi 
, cmdjpkt . blk_lo 
, cmd_pkt.blk_hi 
, cmdjpkt . chklo 
, cmd_pkt . chk hi ) ; 

} 

get_command( ) 

{ 

cmd_pkt . flag 
cmd_pkt . len 
cmd__pkt . opcode 
cmd _jp k t . modi f i e r 
cmdjpkt. unit 
cmdjpkt . switches 
cmdjpkt . seq_lo 
cmdjpkt . seq__hi 
cmdjpkt . cnt_lo 
cmdjpkt . cnt_hi 
cmd _pkt . blk_lo 
cmd_pkt . blk_hi 
cmdjpkt . chk_lo 
cmdjpkt . chk_hi 

} 

send_data ( ) 

f 

long blk_strt, blk_end, i; 
long byte_cnt; 

UCHAR chk_l, chk_h; 
long lobyte, hibyte; 
unsigned long chk; 

byte_cnt * 256L* < long) (cmd_pkt. cnt_hi) + < long) (cmd pkt.cnt lo); 
while ( byte_cnt ) ~ 

( 

s_putch2 ( 1 ) ; 
s_putch2 (128) ; 
chk = 128L+256L + 1L; 
blk_strt - datajptr; 
blk_end » blk_strt + 128L; 
for ( i~blk_strt; i<blk end; i+~2L) 

( 

s jputch2 (data [i] ) ; 
s_putch2 (data [i+1] ) ; 
chk +- (unsigned long) data (i) 

+ (unsigned long) < 256L* (unsigned long) data [i+1] ) ; 
if ( chk > OxffffL ) 

chk OxffffL; 

J 

chk h - (UCHAR) (chk/256L) ; 

chk_l = (UCHAR) (chk - ((unsigned long) chk h * 256L) ) ; 
s_putch2 ( chk_l ) ; ~ 

s_putch2 (chk_h) ; 


= s_getch2{); 

= s_getch2 ( ) ; 

- s_getch2 ( ) ; 

- s_getch2 ( ) ; 

« s_getch2 ( ) ; 

- s_getch2 ( ) ; 

* s_getch2 ( ) ; 

- s_getch2 ( ) ; 

» s_getch2 ( ) ; 

» s_getch2 ( ) ; 

3 s_getch2 ( ) ; 

3 s_getch2 ( ) ; 

- s_getch2 ( ) ; 

= s_getch2 ( ) ; 


byte_cnt 123L; 
data_ptr += 128L; 
pkt++ ; 

iff ! (pktslO) ) 

printt ( "Packet Vid\r’\pkt); 

} 

chk * 2626L; 

chk += (unsigned long) (cmd_pkt . cnt_lo ) 

+ (unsigned long) < 256L* (unsigned long) (cmd pkt.cnt hi)) 
iff chk > OxffffL ) 

chk -* OxffffL; 
chk_h =- (UCHAR) (chk/256L) ; 

chk_l = (UCHAR) (chk - ((unsigned long) chk h * 256L)); 

s_putch2 (2) ; 

s_putch2 (10) ; 

s_putch2 ( 64 ) ; 

s_putch2 f 0) ; 

s_putch2 (0) ; 

s_j3utch2 { 0) ; 

s_putch2 f 0 ) ; 

s_putch2 (0) ; 

s_putch2 ( cmd_pkt . cnt_lo ) ; 
s_putch2 ( cmd_pkt . cnt Jii ) ; 
s_putch2(0); 
s_putch2 (0) ; 
s_putch2 (chk_l) ; 
s_putch2 fchk h) ; 


/* CAPTURE.C — Program to capture the data loaded into the CYRO750 ROBOT during */ 
i* a boot from tape*/ 

Peter L. Romine 1990,91 
University of Alabama, Huntsville 
Electrical and Computer Engineering Department 

^include "cyro.h” 

^pragma checkstack (off) 

FILE *fp; 

int s j>etc2(void) 

{ 

while( !inp_cnt2() ) 
iff kbhit() ) 

f 

\ 

fclose(fp), 
exit( 1 ); 

} 

return inp_char2(), 

} 


/* Written by 

** 

*/ 


int main(int argc,char **argv) 

{ 

connect_seriai(COMM2,RESTORE_ON_EXIT); 

iflf !(fp = fopen(argv[l],"wb")) ) 

{ 

perror(argv[l]); 

exit(l); 

} 


while( 1 ) 

fputc(s _getc2(),fp); 


/* MAKETAPE.C — Program to create a new executive tape using the TU58 drive */ 
built into the C YRO750 ROBOT */ 

/* Written by Peter L, Romine 1990,91 

** University of Alabama, Huntsville 

** Electrical and Computer Engineering Department 

*1 

include "cyro.h" 

^pragma checkstack (off) 

static CYRO msg; 

#define DATASIZ 60000 

static UCHAR data[DATASIZ]; 
long dataj)tr,datajen; 

int pkt=0; 

struct 

{ 

UCHAR flag; 

UCHAR len; 

UCHAR opcode; 

UCHAR modifier; 

UCHAR unit; 

UCHAR switches, 

UCHAR seqjo; 

UCHAR seq_hi; 

UCHAR cntjo; 

UCHAR cnthi; 

UCHAR blk Jo; 

UCHAR blk hi; 

UCHAR chk Jo; 

UCHAR chk_hi; 

} cmd_pkt; 

struct 

{ 

UCHAR flag; 

UCHAR len; 

UCHARdata[128]; 

UCHAR chk Jo; 

UCHAR chk_hi; 

} data_pkt; 


int main(int argc,char **argv) 

i 

\ 

int blk_strt,blk_end,ch; 

FILE *fp,*fpO; 

long byte cnt.i, 

UCHARchk_l,chk_h,s; 
long lobyte.hibvte. 

long chk.a=0,b=0,c=0; 

UCHAR cnt _l,cnt_h; 

connect serial(COMM2,RESTORE_ON_EXIT), 

iff !(fp = fopen(argv[ 1 ], "rb")) ) 
exit(l); 

/* Initialize the data array to all 0's */ 
for(i=0; i<DATASIZ; j-H-) 
data[i] = 0; 


/* Skip over 1st 1024 bytes of tsk image */ 
printfTRd 0 %d\n",a=fread(daia.l,(size_t)1024 < fp»; 

/* Read 1st 2048 bytes from a cln file */ 

fpO = fopen("tu58_4 cln","rb"); 

printff"Rd %d\n",a=fread(data, l,(size_t)2048,fp0»; 

fcloseffpO); 

/* Read the program from the tsk file *1 

printfr"Rd # /«d\n",b=fread(&(data{2048]),l,(sizeJ)30720,fp));/* rdprt 1 
printf("Rd %d\n",c=fread(&(dataC32768]),l,(size_t)30720,f^)V* rd prt 2 
fclose(fp); 

data_ptr = OL; 
datajen = a + b + c; 

printf( H BUFFER SIZE = %ld\n",data_len); 

/* Send a break to the TU58 

printfr" Sending BREAKS to TU58\n"); 

sendbreak20; 

send_break20; 

send_break2(); 

V 


printfr" Sending INITs to TU58\n"); 

s_putch2(0x04); 

sj>utch2(0x04); 

/* wait for CONTINUE from TU58 */ 
while( (ch=s_getch20) != 0x10 ) 
printfr"%d ",ch); 


/* Command Packet to write Block 0 */ 
cmd_pkt flag = 0x02; 

cmd pkt.len = 0x0a; 

cmdjikt. opcode = 0x03; 
cmd jikt.modifier =0x00; 
cmd_pkt.unit = 0x00; 
cmdjikt. switches =0x00; 
cmd_pkt.seq_lo = 0x00; 
cmdjikt. seq_hi = 0x00; 
cmd_pkt.cnt _lo = 0x00; 
cmd_pkt.cnt hi = 0x02; 
cmdjikt.blklo = 0x00; 
cmd_pkt.blk_hi = 0x00; 

send_command(); 

printfCNnWriting BLOCK 0 to TU58\n"); 

write data(512L); 

get_command(); 

prints "OPCODE = %d\n",(int)cmd_pkt.opcode); 

printf("Success Code = %dW\(int)cnxijjkt.modifier); 

pnrrtfl r ”BYTE Count = %ld\n“.256L*(long)(cmd pktcnt hi) + (longXcmd jkt.cnt lo)); 
pnntf("STATUS = %d %d\n",(int)cmd_pkt.blk_Io,(int)cmd_pkt.blk_hi); 

cmd jjkt. flag = 0x02; 

cmdjikt. len = 0x0a; 

cmd_pkt. opcode = 0x03; 
cmdjikt. modifier =0x00; 
cmd_pkt.unit = 0x00; 
cmd_pkt.switches =0x00; 
cmd_pkt.seq_lo = 0x00; 
cmdjikt. seqjii = 0x00; 
cmdjikt.cnt Jo = 0x00; 
cmdjikt.cnt hi = 0x04; 
cmdjikt. blklo = 0x06; 
cmdjikt. blkhi = 0x00; 

send_command(); 

printfTVnWriting BLOCK 6 to TU58\n"); 

write_data( 1 024L); 

getcommandf); 

printfl["Success Code = %d\n",(int)cmd_pkt.modifier); 

printiCBYTE Count = %ld\n",256L*(longXcmd jikt.cnt hi) + (longXcmd jikt.cnt Jo)); 
printfl STATUS = %d %d\n",(int)cmd_pkt.blk_Io,(int)cnKi_pkt.blk_hi); 

/* send WRITE command */ 

datalen -= 1 536L; 

cnth = (UCHARXdata_len/256L); 

cmj = (UCHARXdataJen - ((unsigned long)cnt h * 256L)); 


cmdjikt. flag = 0x02; 

cmd _pkt.len = 0x0a; 

cmd jikt.opcode = 0x03; 


cmdjkt. modifier = 0x00; 
cmd_pkt.unit = 0x00; 
cmdjjkt. switches = 0x00; 
cmd_pkt.seqJo = 0x00; 
cmd_pkt.seq_hi = 0x00; 
cmd_pkt.cnt_lo = cntl, 
cmd_pkt.cnt_hi = cnt_h; 
cmdjjkt. blk Jo = 0x08; 
cmd_pkt.blk hi - 0x00; 

send cominandO; 

prixirfC\nWriting BLOCK 8 to TU58\n"); 

write_data(datajen); 

get_command(); 

pnntJ M Success Code — %d\n",(int)cmd_pkt. modifier); 

printfCBYTE Count = %ld\n",256L*(IongXcmd_pkt.cnt hi) + (IongXcmd_pkt.cntlo)); 
printf(" STATUS = %d %d\n ".(int)cmd pkt.blk lo,(int)cmd pkt.blk hi), 

printf( "\nT ransmission to TU58 compiete!\n"); 


getcommandO 

{ 

cmd_pkt.flag = s_getch2(); 

cmd_pkt.Ien = s _getch2(); 

cmd_pkt.opcode = s_getch20; 

cmd_pkt.modifier= s_getch2(); 
cmd_pkt.unit = s_getch2(); 

cmd_pkt.switches= s_getch2(); 
cmd_pkt.seqJo = s_getch2(); 

cmd_pkt.seqjii = s_getch2(); 

cmd_pkt. cnt Jo = s_getch2)); 

cmd_pkt.cnt hi = s_getch2(); 

cmd_pkt.biklo = s_ j getch20; 

cmd_pkt.blkjii = s_getch20; 

cmdjjkt.chklo = s_getch2(); 

cmdjpkt.chk hi = s_getch2() 

} 


sendco mmandO 

{ 

unsigned long chk; 

UCHAR chk_l,chk_h; 

chk = (unsigned IongXcmd_pkt.len)*256L + (unsigned long)cmd jpkt.flag; 

chk += (unsigned longXcmd j)kt.modifier)*256L + (unsigned long)cmd _pkt. opcode; 

chk += (unsigned longXcmd jkt.switches)*256L + (unsigned long)cmdj 3 ktunit; 

(unsigned longXcmd_pkt.seq_hi)*256L + (unsigned long)cmd_pkt.seqJo; 
chk += (unsigned longXcmd_pkt.cnt_hi)*256L + (unsigned Iong)cmdjpkt.cnt Jo; 
chk += (unsigned IongXcmd_pkt.blk_hi)*256L + (unsigned k>ng)cmd pkt.blk lo; 
chk h = (UCHARXchk/256L), 
chk l = (UCHARXchk - ((unsigned Iong)chk_h * 256L)); 
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sj>utch2(cmd_pkt.flag); 

s_putch2(cmd_pkt.len); 

s_putch2(cmd_pkt. opcode); 

sj)utch2(cmd_pkt.modifier); 

s_putch2(cmd_pkt.unit); 

s _putch2(cmd_pkt. switches); 

s_putch2(cmdj>kt.seqJo); 

s_putch2(cmd_pkt.seq_hi); 

s_putch2(cmd j)kt. cnt Jo); 

s_putch2(cmd jkt. cnt hi); 

s_putch2(cmd jjkt. blk Jo); 

s_putch2(cmdjjkt.blk_hi); 

s_putch2(chkl); 

sj>utch2(chk_h); 


write data(byte_cnti) 

long bvtecnti; 

f 

t 

long byte cnt.blk strt,blk end.i. 

UCHARchkJ,chk h,cnt h,cnt_l,c; 
long lobyte,hibyte; 

unsigned long chk; 

bytecnt = bytecnti; 

while( byte cnt ) 

{ 

/* wait for continue V 
while( (c=s_getch2()) != 0x10 ) 
putcharic); 

s_putch2(l); 
s_putch2( 128); 

chk= 128L*256L + 1L; 

blkstrt = data_ptr, 
blkend = blk_strt + I28L; 

forfi=blk_strt; i<blk_end; i+=2L) 

{ 

s_putch2(data(i]); 
s_putch2(data[i+ 1 ]); 

chk += (unsigned long)data[i] 

+ (unsigned longX256L*(unsigned long)data[i+l]); 
if( chk > OxfffiL ) 

chk — OxfFffL; 

) 


chkh = (UCHARXchk/256L); 

chk l = (UCHARXchk - ((unsigned long)chk h * 256L)); 
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s_putch2(chkj); 
s jutch2(chk_h); 

byte_cnt -= I28L; 

data_ptr += 1 28L; 


pkt++; 

ifl[ !(pkt%10) ) 

printtf'Packet %d\r",pkt); 


return; 


/* READTAPE.C — Program to read an executive tape from the CYRO750 ROBOT */ 


Peter L Romine 1 990,9 1 
University of Alabama, Huntsville 
Electrical and Computer Engineering Department 

^include “cyro.h” 

^pragma checkstack (off) 

static CYRO msg; 

#define DATASIZ 60000 

static UCHAR datafDATASIZ], 
long data_ptr,datajen; 

int pkt=0; 

struct 

UCHAR flag; 

UCHAR len; 

UCHAR opcode; 

UCHAR modifier, 

UCHAR unit; 

UCHAR switches; 

UCHAR seqjo; 

UCHAR seqjii; 

UCHAR cntlo; 

UCHAR cntjhi; 

UCHAR blklo; 

UCHAR blk hi; 

UCHAR chk Jo; 

UCHAR chk hi; 

} cmd _pkt; 

struct 

{ 

UCHAR flag; 

UCHAR len; 

UCHAR data[ 128]; 

UCHAR chkjo; 

UCHAR chk Jii; 

} data pkt; 


/* Written by 
** 

** 

*f 


int main(int argc.char **argv) 

{ 

int blk_strt,blk_end, 

FILE *fp,*fpO; 

long byte_cnt,i; 

UCHARchk_l,chk_h,s; 
long lobyte,hibyte; 

long chk,a=0,b=0,c=0; 

UCHAR cnt _l,cnt h; 

connect _seriaJ(COMM2,RESTORE ON EXIT); 

/* Send command string to read the entire tape contents *1 

s_putch2(2); 

s_putch2(10), 

s_putch2(2); 

s_putch2(0); 

s_putch2(0); 

s_putch2(0); 

s_putch2(0); 

sj>utch2(0); 

s_putch2(0); 

sjjutch2(2); 

s_putch2(0); 

s_putch2(0); 

sj>utch2(4); 

sjputch2(12); 

whiie(l) 

printf( M %d ,r ,s_getch2()); 


exit(l); 
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/* RESEQ.C — Prograin to resequence a NC program for the CYRO750 ROBOT */ 
/* Written by Peter L. Romine 1990,91 

* * University of Alabama, Huntsville 

Electrical and Computer Engineering Department 

*/ 

^include <cyro.h> 

static char strl[100],str2[100]; 

mainiargc^argv) 

int argc; 

char **argv; 

{ 

FILE *fpin,*fpout; 

char strf80],fhame[12],numstr[7], 

int i,j,num,ien; 

if( argc > 2 ) 

{ 

primtTVnUSAGE: reseqp file.nc\n"); 
exit( 1 ); 

} 

if( argc — 2 ) 

strcpy(fhame,argv[ 1 ]); 
else 

{ 

printf( H \nWHAT PROGRAM NAME ? "); 

scanty "%s", frame); 

fflush(stdin); 

} 

if( !(fpin==fopen(fiiame, ,, r”)) ) 

{ 

perroifframe); 

exit(l); 

} 

strcpy(strl,"copy "); 
strcat(str 1 , frame); 
strcat(strl/ "); 
strcai(strl, frame); 
strl[strlen(strl>-3] = 0; 
strcat(strl , H B AK"); 
system(strl); 

i* !(fpout=fopen("RESEQ$$$.TMP M ,"w")) ) 

{ 

perrorC'TMPFILE"); 

exit(l); 

} 

num = 1 0; 
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while{ fgets(strl,90,fpin) ) 

f 

sprint# str, "%d " , num); 
i# num < 100 ) 

strcpy(numstr, "NOO"); 
else ifl num < 1 000 ) 

strcpy(numstr, "NO"); 
else 

strcpy(numstr, "N"); 
strcat(numstr,str); 

strcpy(str2, numstr); 

len = strlen(strl); 

i = 0; 

while( i <= len ) 

{ 

switch( toupper(strl[i]) ) 

{ 

case V: 
case \n': 
case V: 
case *F: 
case f G’: 
case 12: 
case M: 
case W: 
case 'Y: 
case TC: 

strcat(str2,&strl [i]); 
i = len + 1 ; 
break; 

default: 

i++; 

break; 

} 

} 

fputs(str2,fpout); 
num += 10; 

} 

fclose(fpin); 

fc!ose(fpout); 

strcp^strl/copy RESEQ$$$.TMP H ); 

strcat(strl ,fiiame); 

system(strl); 


APPENDIX B 


New PC Menu Listing 



@ECHO OFF 

REM CYROMENU.BAT — DOS batch file to create user menu. 

REM Written by Peter L. Romine 1990,91 

REM University of Alabama, Huntsville 

REM Electrical and Computer Engineering Department 

REM 

FMARK MENU >NUL 
CALL LOADHLP 
TOP 

sa bright white on blue 
els 

ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 
ECho 

START 

tick Enter a letter from A to L 
echo . 

GETLETR 

IF ERRORLEVEL 27 GOTO END 
IF ERRORLEVEL 13 GOTO START 
IF ERRORLEVEL 12 GOTO LAB ELL 
IF ERRORLEVEL 1 1 GOTO LAB ELK 
IF ERRORLEVEL 10 GOTO LABEL? 

IF ERRORLEVEL 9 GOTO LABELI 
IF ERRORLEVEL 8 GOTO LABELH 
IF ERRORLEVEL 7 GOTO LABELG 
IF ERRORLEVEL 6 GOTO LAB ELF 
IF ERRORLEVEL 5 GOTO LABELE 
IF ERRORLEVEL 4 GOTO LABELD 
IF ERRORLEVEL 3 GOTO LABELC 
IF ERRORLEVEL 2 GOTO LABELB 
LABELA 
dir/p * nc 


+ + 

CYRO-PC MENU 

A Directory of programs on PC disk 
B Directory of programs on CYRO 
C Reconnect PC to CYRO 
D List a NC program on the PC 
E Save a program FROM CYRO TO PC 
F Load a program TO CYRO FROM PC 
G RUN program loaded on the CYRO 
H HALT a program running on CYRO 
I Edit program on PC using MS WORD 
J Edit program on PC using Q-EDIT 
K Send program listing to printer 
L Resequence program on PC 


! DEFAULT DIRECTORY [\CYRO] 

! Enter a letter from A to L 

! (or type Esc to quit) 

+ 


ticker 

GOTO TOP 
LABELB 
dirp 
ticker 

GOTO TOP 
LABELC 
init 
ticker 

GOTO TOP 
LABELD 
listp 
ticker 

GOTO TOP 
LABELE 
savep m 
ticker 

GOTO TOP 
LABELF 
loadp m 
ticker 

GOTO TOP 
LABELG 
runp m 
ticker 

GOTO TOP 
LABELH 
haJtpm 
ticker 

GOTO TOP 
LABELI 

echo Please Wait while WORD is loaded . 
word 

GOTO TOP 
LABEU 

q 

GOTO TOP 
LABELK 
primp 

GOTO TOP 
LABELL 
reseqp 
GOTO TOP 
END 

RELEASE MENU >NUL 



APPENDIX C 

IIEURIKON Software Listings 
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/* SDKX 3 W.C module - This module acts as the SENsor CONtroller interface*/ 


/* for the T3V system. Throughout this module there are IFDEF compile */ 

/* switches checking for the switch SEP5C . If this switch is set it */ 

/* indicates the presence of a seperate sensor controller board as in */ 

/* Rocketdyne configuration. If this switch is not set it indicates no */ 
/* seperate sensor controller boards as in the MSFC configuration. */ 

/* The routines included are: V 

/* s«_±nit - initializes the sensor controller and/or communications V 
/* - sends deltas to the the sensor controller or robot */ 

/* - gets all system paramaters from the sensor controller*/ 

/* - sets the time (if time kept in SENCON module) */ 

/* s«__po»t - posts a message to the sensor controller */ 


finclude "/usr/system/codes . h" 

# include ,f /usr /system/ shared. h" 

#include "util.h" 

#include "system. h" 
linclude "global. h" 

extern STATE state; /* current system states */ 

extern SYSTEM system; /* The current system parameters */ 

/* * + *+*** + + **•* + ************* + * + *** ******* + ** + ** + **** + + *.*** + **** + ** + ******/ 

/* SI^ISIT - initializes the sensor controller system. If a seperate */ 

/* board is present it initializes communications with it. If no */ 

/* seperate board it starts up the clock and initializes the on board V 
/* sensor controller system. */ 

se_init (se_qid) 

int se_qid; /* Queue ID for messages from sensor controller */ 

< 

tfifdef SEPSC /* Initialize communication if seperate board */ 

vt_msg ("Initializing Intercard Comm routines ... \n" , state .debugl ) ; 
initcom (se_qid); 

#^lse /* Initialize communication if same board */ 

/* Init for MSFC V 

init_serial ( ) ; /* Initialize the serial console port */ 

init_cyro<); /* Wait for the CYRO init msg V 

Dendif 
} 

/**★★★★★+★★+★*+★•*••*■★++*** ★♦★★★★★★★★♦★★♦★★****+*+*+****++***+*^ f +**+ it******* f 

/* DELTA - sends a cross seam delta to the robot. Info is sent only */ 

/* if the control switch is set and the sensor controller data read */ 

/* switch is set. Two parameters are sent; delta and conf. Delta is */ 

/* the cross seam error passed as a velocity in units of .OOlVsec. */ 

/* Conf is the calculated confidence in the delta (0 - 100) . */ 

se_delta (delta, conf) 

mt delta; /* The cross seam error, given as a velocity */ 

int conf; /* The confidence in the delta */ 

{ 

/* Send info only if in control and Sensor Controller data is readable */ 
if (state. control && state. scread) 

{ 

#ifdef SEPSC /* if we have a sensor controller board. . . */ 

T3V_FDBCK->delta = delta; 

T3V_FDBCK->confidence * conf; 
se_post (T3VDELTA); 

#else /* if we don't have a seperate board... */ 

/* For MSFC, send an override to the CYRO */ 
se_post ( delta ) ; 

#endif 

) 

} 
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/ * SS_3KTSYSTBC - gets all system data from the sensor controller and */ 

/ * stores It Into the struct SYSTEM. All data is moved at once to */ 

/ * maintain consistancy and to (in one place) be able to shut off reads */ 
/* to the sensor controller. Data is only read if the sensor controller*/ 
/♦ read switch is set. */ 

se_getsystem ( ) 

{ 

fifdef SEPSC /* If seperate board... */ 

if (state. scread) 

{ /* OK to read from Sensor controller */ 

system. welds tate - ACTUAL->weldstate; 
system. pulsing = PROGRMED->pulseonof f ; 

system. speed = PROGRMED->t ravel; 

system. peakcurr = ACTUAL- >p_cur; 
system. backcurr = ACTUAL- >b_cur ; 
system. hours = TIME->hours; 
system.minutes * TIME->mins; 
system. secs = TIME->secs; 

} 

else 

( /* not OK to read, set values to default ♦/ 

system. welds tate * WELDOFF; 
system. pulsing = FALSE; 
system, speed » 0; 
system. peakcurr * 0; 
system. backcurr - 0; 
system. hours =0; 
system.minutes = 0; 
system. secs =0; 

} 

# e lse /* If no seperate board */ 

/* For MSFC CYRO */ 
if ( ! cyro_locked) 

( /* OK to read from CYRO structure */ 

system. weldstate - cyro . weldstate; 
system. pulsing = cyro .pulseonof f ; 
system. speed ~ cyro. travel ; 
system. peakcurr * c yro.p_cur; 
system. backcurr » cyro.b_cur; 
system. hours * cyro. hours; 
system.minutes = cyro. mins; 
system. secs = cyro. secs; 

} 

else 

{ /* not OK to read, set values to default */ 

system. weldstate = WELDOFF; 
system. pulsing * FALSE; 

system. speed * 0; 

system. peakcurr = 0; 

system. backcurr =0; 
system. hours - 0; 

system.minutes - 0; 

system. secs - 0; 

} 

#endif 

} 


/****+**++*****+**++++*++++++++++++++++++++++++++++++++++++++++++++++++++/ 

/* s *— JO ** “ P°3ts a message to the sensor controller. If the sensor */ 

/* controller is a seperate board it sends the message via the intercard*/ 

/* communication system. The message is sent only if the sensor V 

/* controller read switch is set. */ 


se_post (msg) 
int msg; 


The message to post 


fifdef SEPSC /* if seperate 

if (state. scread) /* Send only ij 

post_to_sc (msg) ; 

# el3e /* If no seperate board 

/* For MSFC, send override msg to CYRO */ 
cyro_ovr ide ( msg ) ; 
fendif 


/* If seperate board */ 

/* Send only if SC Read switch set.*/ 
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